home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / orbita.frm < prev    next >
Text File  |  1995-12-05  |  3KB  |  106 lines
  1. VERSION 2.00
  2. Begin Form orbita 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   2460
  8.    ClientTop       =   1785
  9.    ClientWidth     =   3480
  10.    Height          =   3600
  11.    Icon            =   ORBITA.FRX:0000
  12.    Left            =   2400
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3195
  18.    ScaleWidth      =   3480
  19.    Top             =   1440
  20.    Width           =   3600
  21.    Begin SSCommand SSCommand1 
  22.       AutoSize        =   2  'Adjust Button Size To Picture
  23.       BevelWidth      =   3
  24.       Caption         =   "Done"
  25.       Font3D          =   3  'Inset w/light shading
  26.       ForeColor       =   &H00000000&
  27.       Height          =   495
  28.       Left            =   840
  29.       TabIndex        =   1
  30.       Top             =   2640
  31.       Width           =   1575
  32.    End
  33.    Begin SSCommand orbut 
  34.       AutoSize        =   2  'Adjust Button Size To Picture
  35.       ForeColor       =   &H00000000&
  36.       Height          =   570
  37.       Left            =   1320
  38.       MousePointer    =   2  'Cross
  39.       Picture         =   ORBITA.FRX:0302
  40.       TabIndex        =   0
  41.       Top             =   2040
  42.       Width           =   570
  43.    End
  44.    Begin SSPanel SSPanel2 
  45.       AutoSize        =   1  'AutoSize Panel Width To Caption
  46.       BevelInner      =   1  'Inset
  47.       BevelOuter      =   1  'Inset
  48.       BevelWidth      =   2
  49.       BorderWidth     =   2
  50.       Caption         =   "All Rights Reserved"
  51.       Font3D          =   3  'Inset w/light shading
  52.       ForeColor       =   &H00000000&
  53.       Height          =   375
  54.       Left            =   720
  55.       TabIndex        =   3
  56.       Top             =   1560
  57.       Width           =   1875
  58.    End
  59.    Begin SSPanel SSPanel1 
  60.       AutoSize        =   3  'AutoSize Child To Panel
  61.       BevelInner      =   1  'Inset
  62.       BevelOuter      =   1  'Inset
  63.       BevelWidth      =   2
  64.       BorderWidth     =   2
  65.       Caption         =   "Copywrite Nathan Brown"
  66.       Font3D          =   3  'Inset w/light shading
  67.       ForeColor       =   &H00000000&
  68.       Height          =   375
  69.       Left            =   600
  70.       TabIndex        =   2
  71.       Top             =   1080
  72.       Width           =   2295
  73.    End
  74.    Begin SSPanel SSPanel3 
  75.       AutoSize        =   1  'AutoSize Panel Width To Caption
  76.       BevelInner      =   2  'Raised
  77.       BevelWidth      =   3
  78.       Caption         =   "Orbital Motion«"
  79.       Font3D          =   3  'Inset w/light shading
  80.       FontBold        =   -1  'True
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   18
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       ForeColor       =   &H00FF0000&
  87.       Height          =   735
  88.       Left            =   240
  89.       TabIndex        =   4
  90.       Top             =   240
  91.       Width           =   3075
  92.    End
  93. End
  94. Sub Command1_Click ()
  95.     Unload orbita
  96. End Sub
  97.  
  98. Sub orbut_Click ()
  99.     MsgBox "Thank You!", 64, "For Ordering"
  100. End Sub
  101.  
  102. Sub SSCommand1_Click ()
  103.     Unload orbita
  104. End Sub
  105.  
  106.